جدا کردن سه رقم در edit دلفی

باید در uses از StrUtils,math استفاده شود function Bet(S: string; Thousands: Boolean;Sender: TObject): string;varI, MaxSym, MinSym, Group: Integer;IsSign: Boolean;beginfor I :=1 to Trunc(Length(S)/3)